N 
— 
=) 


F 12 


**F ILE**1D**SYSDGBLSC 


Ww Vu 
Vu VuYU 
a) wu 
vw as 
Vu Vv 
i i 
ss a 
as ww 


VUVVYVUVYYUYUYY 
VVYVYVYVUYVUUYUYUY 


mn MNMnn 
mown MMnnm 
nn wn nn 
“nn nw nw 
mn nw “nw 
nn nw “ww 
own nw mn 
nn nn “wn 
Mmunwnw nn 
Munn nn 
a4 
ee) 
4a 
Ju 
vu 
_—) 
du 
_—) 
Se SS 
De eS ee 


oa @ @mo 
oo @ao oo 
@aom @a aoa 
BODOOOOODOOOOO®DD 
BOODODOOOOOOOOOD 
ou yVvuIuu”No 
oo PU TU TCTU) 
ovo uouo uo 
ovo ou uo 
ou ou oo 
ovo uo ovo 
oU uo 
pure) uo 
*QPDOVII VI UV V9 
VVIVVVII VV 
aooncaocoaaocana 
a00000808a 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
anaoanaananaaanaadktdtt 
aSaoaonoaoaoaooaooaoaoanana 
nn nNuNNw 
nn NNN 
nn nn nn 
nn nn nn 
nn nw nn 
mn nn nn 
nn nn nn 
mm mn nn 
NNN nn 
YNNM nn 
>>> > 
>>>> 
>> 
>> 
>>> > > > > > 
>>>>>>>> 
>> 
>> 
>> >> 
>>>> 
nn NMNNN 
nw YNNNM 
nw wn nn 
nn "nn nn 
mm nn nn 
nw nn nn 
ww nn nn 
Pvt?) mn nn 
ynnnm “nw 
NMNNN nn 


mn Mnnn 
nn Annum 
“wn nw 
nw own 
nw nw 
nw nw 
nn nn 
nn mn 
NNNM 
MMMM 
oo 
“— 


LLLLLLELLL 
LLLLLLLLLL 


16-SEP-1984 02:00:54 VAX/VMS Macro v04-00 Page 


~ DELETE GLOBAL SECTION SYSTEM SERV 


Table of contents 


SYSOGBLSC 


Wu MOWww 


scam 


H 1 
~ DELETE GLOBAL SECTION SYSTEM seRvice 7 SEP-1984 ; 9¢:90:35 


OOOGOOCOCOCOCOOCOOCooO 


COOooooooooooooooo 
OCOOQGOOOSOSOSOOSSSSSSSOSOOSOCOoooooooooooooooooooooO 


SDOoOoOoOOOCOoOoOOSoOoOooooooooooocosoo 


SOOOCOOOCOOSOSOOOSOoOSoOSSoSoS 
OOOCSOSCOOOCOOOOOSOSOSOOSOSOSOSOSSOOSOOOSOoOSoOoOOS 


So 
SSSssss 


a ne a a tt 


PUPP EB BPP LEE ES 


wn 


NAME AN 9 OO NOAU EWN 9 OD NAUE WIN 9 ODNOAU EWN O OONAUE UW OOWONOUNS 


; 
€ 
3* 
;* 
3* 
;* 
;* 
;* 
3* 
3;* 
;* 
3* 
3% 
;* 
;* 
3;* 
7* 
3* 
;* 
;* 
3” 
3* 
3% 
° 


AX/VMS Macro V04-00 
-SEP-19 YeYS. SRCIJSYSOGBLSC.MAR; 1 

eTITL YSOG - DELET A T YSTEM SER 

et 9 4 oes ETE GLOBAL SECTION SYSTEM SERVICE 


—PAAAARARARAAAAALALALEALLLLILELELE SEATS EEE EEE EE EEE EEE E EEE EET ECT ec ec cca 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IRR RAAAAAAALALALALALALA SELES SESE SEL EEE EERE RRR EERE EEE RRR E TEES SY 
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FACILITY: 
ABSTRACT: 


ENVIRONMENT: 
AUTHOR: PETER H. LIPMAN, CREATION DATE: 9-MAY-77 
MODIFIED BY: 
v03-010 ae yy M. Katz 28-Apr-1984 
Modi fy nNGSGSDSCN. se that the global section’ descriptor 
name maybe speci as a full length gon ‘cal name 
(ie -QO<L cn : ze =< LNMSC “NAALENG 


v03-009 uncoees Wayne Cardoza 28-Mar-1984 
Use hash byte to check for GSD mat 


tch. 
Make sure file system is present before deallocating WCB. 


v03-008 wac0003 Wayne Cardoza 14-Mar-1984 
Fix deletion of resident section. 
v03-007 wac0002 ayne Cardoza 24-F eb-1984 


Add resident a sections. 


v03-006 MSHO004 Michael S. Harve ey 26-Jan-1984 
Add support for lengthened global section name in GSDs. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN eae WITH THE {ene OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Pannsreneeee” ITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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; vO3-005 wMc0001 vayne Cardoza 24-May-1983 
et ; Add new flag - SECSM_EXECUTE 
: : V03=004 LJK0199 wrence J. Kenah 26-Apr-1983 
o7 : Do not charge FILENT quota for shared windows. 
65 : v03-003 L yk0203 Lawrence J. Kenah 19-Apr-1983 
0 96 ; ix broken word displacements. 
8 oe : v03-002 KDM0037 thleen D. 16-Dec-1982 
4 8 5 Do not allow he” SE csv PAREIL” sot ten for PFNMAP sections. 
a4 A! : Turn on the DZRO and WRT bits for PAGFIL sections. 
0000 72 :-- 
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-. »SBTTL VFYSECFLG = VERIFY SECTION FLAGS 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE VERIFI 
THOSE FLAG BITS DEF 


CALLING SEQUENCE: 

BSBW MMGSVFYSECFLG 
INPUT PARAMETERS: 

RO = SECTION FLAGS 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 


IF SECTION FLAGS ARE NOT LEGAL, THEN THIS ROUTINE EXITS WITH RET 
OTHERWISE IT RSB'S TO ITS CALLER WITH: 


RO PRESERVED 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SS$_IVSECFLG INVALID SECTION FLAGS 
SIDE EFFECTS: 

NONE 


me 


ES THA AGS CONTAIN ONLY 
INED A FACE 


N_FL 
NTER 


mn 
cm 


THAT TH 
ED AT TH 


SRK SAAA ALATA A AAA AAAAAAAARAAAAAAARAAAAAAAAAAAAAARAAERAAAAEE 


Seererreeerereee THE FOLLOWING CODE MAY BE PAGED eeeeenecereererer 
~PSECT YSEXEPAGED 


© 
fF SAHRA ARA AAA TARTAR AAA AAAAAAAAAAAAAAAKAAARAAAAAAAAATAAAAAAAAAKeeEEee 


MMGSVFYSECFLG:: 
BITL 


SANNA A AAA A AAA A MMIMUIUIUIVIVIVIU ES BBE BEE EE EWN IWIIWIIoronononononofnnngn | 2 
PRO OOO UNE WR 0 OO NOAM EF UWP) $$ O OD NO UE WR) 0 OO NOU EW" O DONO SW" OODO~O 


#*C<SECSM_GBL ! - ;GLOBAL/PROCESS SECTION 
SECSM_CRF ! = COPY ON REFERENCE 
SECSM_DZRO ! - DEMAND ZERO 

ad {eo sWRITABLE 

SECSM_SYSGBL ! - SYSTEM/GROUP GLOBAL 
SECSM_PFNMAP ! - sMAP TO SPECIFIC PFN'S 
SECSM_EXPREG ! - ;MAP TO FIRST FREE VA SPACE 


<u 


scam 
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VFYSECFLG © VERIFY. SECTION FLAGS gr SEe 188s 83:88:25 PeNCMeS Bacco yOReOo «= Page 8, 
7 173 SECSM_PROTECT ! = ;PROTECTED SECTION 
7 17% SECSH-PAGEIL 1" SPAGE FILE BACKING STORE 
7 175 SECSM"WRTMOD | = SWRITE ACCESS MODE 
7 126 SECSM“EXECUTE ! - :CHECK FOR EXECUTE ACCESS 
a,’ SECSM-RESIDENT ! = SRESIDENT GLOBAL SECTION 
7 178 $5 CSA_PERM >,RO +s PERMANENT/ TEMPORARY 
56 12 f 186 BNEQ ‘BRANCH IF ANY BAD BITS 
4150 10 € 9 1 BBS #SECSV_PFNMAP,RO,18$ | BR _TO DO FURTHER CHECKS IF PFNMAP 
54 50 OD 34 4 : BBS #SECSV-RESIDENT,RO,50$ RESIDENT CHECKS : 
1) 184 ; 
1 5 ; CHECKS FOR SECSV_PAGFIL OPTION: 
0B 50 13 «€1 6} 1 § , BBC #SECSV -PAGFIL., RO,5$ 
4g 50 01 £0 0015 188 BBS #SECSV-CRF RO, 208 :CRF AND PFNMAP NOT ALLOWED FOR PAGFIL 
4250 00 €1 0019 189 BBC #SECSV~ er RO. 20$ MUST BE GBL 
50 6(0c:CéCGB’ O10 190 BISL2 #<SECSA_ byRO! SECS. WRT>, Rov SFORCE WRT/DZRO FOR PAGFIL OPTION 
0 192; 
09 0 198 3 CHECKS FOR SEC$V_DZRO OPTION: 
0c 50 02 «€1 09 0 195 §s: BBC #SECSV_DZRO,RO,10$ -1S THIS A DEMAND=ZERQ SECTION? 
50 OA D3 024 196 BITL  #<SECSA_CRE'SECSM_WRT>.RO :IF YES, THEN IT MUST BE CRF OR 
13 0027 19 BEQL Wd 7100- ELSE ERROR 
029 198 ASSUME <Se Cn GBL!SECSM_CRF!SECSM_DZRO> EQ 
07 50 03 00 ED 029 199 CMPZV RO, #<SECSM~ GBL! SECSM™ CET eee ESM D DZRO> ;GBL, CRF, DZRO 
2F 613 «(00 E 00 BEQL sSECTIONS ARE PROHIBITED 
0030 502 ; 
3H 08 : COMPUTE WRITE ACCESS MODE: 
50 od 00 08 ios: PUSHL RO i SAVE FLAGS 
50 03 9A 003 06 MOVZBL #PSLSC _U ASSUME WRITE ACCESS MODE NOT SPECIFIED 
08 6 12 #«€1 00 07 BC #SECSV mith ta (SP),15$ :BR IF WRITE ACCESS MODE NOT SPECIFIED 
50 6€ 02 06 ef 039 208 EXTZV #SECSV“WRTMOD ,ASECSS_ WRTHOD - (SP) RO :GET WRT ACMODE SPEC IFIED 
FFBF® 30 O03E 209 BSBW EXESMARACM 12— WRT MODE WITH PREV MODE 
6— 02 06 50 FO 0041 210 158: INSV RO #SECSV _WRTMOD ,ASECSS_ oRTRAD. tepy :PUT MAX WRT MODE IN FLAGS 
3 D0 0046 211 MOVL (S sSET VERIFIED FLAGS AND WRT MODE 
E8 AD DO 0049 1 MOVL RO, mnesL _VFYFLAGS (FP) : REMEMBER VERIFIED FLAGS FOR LATER USE 
05 004D 21 RSB , RETURN TO CALLER 
te 518 
ae 1 ; CHECKS FOR SECSV_PFNMAP OPTION: 
50 00080006 8F 03 4 18 18$:  BITL  #<SECSM_CRF!SECSM_ DZRO!SECSH PAGFIL>,RO ;PFNMAP CANNOT BE C 
08 1 3 19 BNEQ 208 DZRO, OR PAGFIL. BR IF FLAGS TLLEGAL. 
037 ° : THIS CODE REQUIRES, SECSV PERN TO BE SET FOR ALL PFNMAP GLOBAL SECTIONS. 
7 § s TEMPORARY PFNM L secT IONS NEVER GO AWAY BECAUSE THE DELAYED 
Bf : DELETION MECHANISR’ PBR Gi OBAL SECTIONS REQUIR ES THE SECTION TO HAVE 
7 4 : A SECTION TABLE ENTRY. PFNMAP SECTIONS DO NOT HAVE SECTION TABLE 
3 5 ; ENTRIES BECAUSE THEY NOT ASSOCIATED WITH A FILE. THUS, T 
g 6 ; ROUTINE MMGSDALCSTXSCN NEVER FINDS PFNMAP GLOBAL IONS. 
D5 50 90 E1 37 8 . BBC #SECS$V_GBL,RO,10$ 7BR IF PROCESS PFNMAP SECTION 
D1 5 — €0 B BBS #SECSV~PERM,RO, 10S [BR ON FLAGS OK, GBL PERM PFNMAP SEC 


<u 


M 1 
SYSDGBLSC = DEL GLO SECTION syst EM SERVICE 16-SEP-1984 AX/VMS Macro V04-00 Page 
voe-006 VFYSE = IFY SECTION FLAGS “SEP=1 1984 88: 98: 23 tg SYS.SRCIJSYSDGBLSC.MAR;1 . (%) 
50 016C 8F 5 208: MOVZWL 9 #SS$_IVSECFLG,RO 3 VAL TD SECTION FLAGS 
4 RET ;RETURN FROM SYSTEM SERVICE 


CHECKS FOR RESIDENT GLOBAL SECTIONS 
0009000E ef bos: BITL #<SECSM_CRF!SECSM ~URT!SECSM DZRO! SECSM_PAGFIL!SECSM_PFNMAP>, - 
29 19 and : . CHECK FOR ILLEGAL COMBINATIONS 
ED 50 00 F] BBC #SECSV_GBL,RO,20$ ;MUST BE yt oBa 
BC Ot BRB 10$ FINISH 


<u“ 


At 
ETION MUTEX 'SaSEPal9Be OSssoic3 Levevencheyspamescomar;1 P29* (2, 
.SBTTL GSDMTXULK = UNLOCK GLOBAL SECTION MUTEX 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE UNLOCKS THE GLOBAL SECTION MUTEX 
CALLING SEQUENCE: 
BSBW © MMGSGSDMTXULK 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


SCHSGL_CURPCB = PROCESS CONTROL BLOCK OWNING THE MUTEX 
EXESGL-GSDMTX = MUTEX TO UNLOCK 


OUTPUT PARAMETERS: 
R4 = CURRENT PCB ADDRESS 
IMPLICIT OUTPUTS: 


eo a 
v04-00 UNLO 


SOOCOCOCoOoOoOoOoOOOCOOCOOOOOOOOOOoOOO 
COOCCOCCOCOSO COCO OCOOOOCOOOOOOOOoCOO 


NNN SSS SSS SSS 
FOF Se oe oP oS Po oF SS SS oe SS dd td eS dd de 


WOO OO OOO 00 0069 0909 09 69 09 09 09 SI NINN SINNED PAA AA AAO IIIT ES 
DNASE WN OOONA UE WIN  O OD NAU ES WN O OD NAUE WN OO OWONAOULS WN —OVOONOUS 


NONE 
00 COMPLETION CODES: 
00 NONE 
00 
83 SIDE EFFECTS: 
60 NONE 
0074 
0074 -- 
0074 
0074 ; THE FOLLOWING ROUTINE IS INVOKED BY THE — THROUGH CHKDGBLSC. 
Boe 3 IT MAY LATER BE REQUIRED TO REMAIN RESIDENT 
Boe : RRRAAAERTE RATA AAA AAA AERA RARER AAA AAA 
0974 : geeteererereeere THE FOLLOWING CODE MAY BE PAGED eeexeeaneeeeerene 
00000074 : .PSECT YSEXEPAGED 
S 3 REET ATEA AAA AA AAA AAERAAAAAAAAAARAAAAAAAATAAAAAAAAAAAAAAARAARAAAAEE 
4 
bp AMGSGSDMTXULK: : 
54  QO000000°EF 00 74 MOVL L“SCHS$GL_CURPCB,R4 serocess souTnct BLOCK ADDRESS 
50 BOORBO RR EE DE 7 MOVAL L“EXESGL”-GSDMTX,RO :GLOB ses! ION MUTEX 
QOO000000'EF 1 § JSB SCHSUNLOCK 3 UN POCk HE MUTE 
0 RSB AND RETURN 
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ste -SBTTL DGBLSC = DELETE GLOBAL SECTION SYSTEM SERVICE 
+ FUNCTIONAL DESCRIPTION: 


; CALLING SEQUENCE: 
CALLG epee itt ‘Retiscecast’ 


0 
08 CALLG ARGLIST.MMGSDGBLSC1 
08 : INPUT PARAMETERS: 
88 FLAGS(AP) = BIT 0 = GBL = GLOBAL IF SET, PROCESS IF CLEAR 
08 BIT 1 = CRF = COPY ON REFEREN 
08 BIT ; - DZRO = DEMAND ZERO 
08 BIT - WRT - WRITABLE IF SET, READ ONLY IF CLEAR 
08 BITS 4 = 13 RESERVED, MUST BE ZERO 
08 BIT 14 = PERM = PERMANENT IF SET, TEMPORARY IF CLEAR 
08 BIT 15 = SYSGBL = SYSTEM GLOBAL [F SET, GROUP GLOBAL IF CLEAR 
08 BIT 18 - PFNMAP = MAP TO SPECIFIC PEN'S 
08 BIT 17 = EXPREG, MAP TO FIRST FREE SPACE AVAILABLE 
08 (UNUSED FOR $DGBLSC) 
08 BITS 18 = 31 RESERVED, MUST BE ZERO 
atete NOTE THAT ONLY SYSGBL AND PFNMAP ARE REQUIRED FOR 
eexee THIS SERVICE. 
GSDNAM(AP) = ADDRESS OF DESCRIPTOR FOR GLOBAL SECTION NAME 
IDENT(AP) = ADDRESS UAD WORD CONTAINING SECTION IDENTIFICATION 
FIRST L WORD CONTAINS THE MATCH CONTROL INFORMATION 


_MATAL 
SK“MATEQU, MATCH IF IDENT ARE EQUAL 

$k~ salt LEQ MATCH IF HIGH 8 BITS ARE EQUAL 
LOW 24 BITS ARE LESS THAN OR EQUAL TO 
THE ID sfor e IN Arr GLOBAL $ CT IONS 

SECOND LONG WORD CONTAINS THE IDENT TO BE COMPARED 


R4 = PROCESS CONTROL BLOCK ADDRESS 
UP_BY THE CHANGE MODE TO KERNEL DISPATCHER 
IPL = ASTDEL IF CALLED AT MMGSDGBLSC1 


; IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 


RO = SYSTEM STATUS CODE 
IPL PRESERVED WHEN CALLED AT MMGSDGBLSC1 


: IMPLICIT OUTPUTS: 
: NONE 
, COMPLETION CODES: 
$33. vse tELS ~ INVALI 


S 
SSS"NORMAL - SUC ES 
SSS"NOTCREATOR = NOT 


VOOooan 
wn 
en 
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ECTION FLAGS 
E FOR ATTEMPTED OPERATION (PRMGBL) 
G 


LOBAL SELTION'S CREATOR PROCESSOR 


S 
EG 
IN 


WAAAAAA. A.A AWN AAA AANA AA AANA ANNAN NA AA AIA ANA AAAANAN ANAND 
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: 0 
; 0=S5 
3 125 
3 2=5 
e A 
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ATA STRUCTURES NOT CONNECTED TO LOCAL MEM 
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oe 
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SIDE EFFECTS: 


‘ 
4 
ee rere tere te te terete te te 
P-OKO— CUNT NOR. OO 
WNNOOOO000000 
POET IIE) 


DEO AOCAOAOAOO 


000000000 0000.00.0000.c0 00 
SOOO SOS SSeS 
COOCCOOCOSooS 
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RRATRETHAAA RARER E THAT AEA AAA AAAEKAR AKER AAAReKHAeeeeeKeeekeeeeereeee 
keeeeeceerereree THE FOLLOWING CODE MAY BE PAGED eeeeeeereeeeeeree 
-PSECT YSEXEPAGED 


LARARBARRABAAAALALALALAAAAE SALAS LELELE SSSA LASERS ERE REE EEE SEE ESSEC 


-ENABL LSB 


3 NO PRIVILEGE TO DELETE A GLOBAL SECTION 


PRIV_ERR: 
50 24 mov VZWL  #SS$_NOPRIV,RO jNO PRIVILEGE FOR SPECIFIED OPERATION 
MMGSDGBLSC1:: 
. WORD ance. »R3,R4,R5,R6,R7,RB,RI.R10> 
58 gr 9A MOVZBL # "1 i,k ;INDICATE IMAGE ACTIVATOR DELETE REQUEST 


peeeeeeeeeeeee EXESDGBLSC ENTRY POINT 


oO 
MEW 9 OO NAU EW O OONOUS WO Omir 


o 
o = us 
ey - 84 
DOOOCOSCOSCOOCOOOOOOOCOOOOOOSOOOOO 
SOSCSCSCSOSCSOSOSOSOSOSOSOSOSOOSOOOSOOOOOOSOSOOO 
W000 C00 00000000009 00 09 00 00 000009 60 0900 0000 00.00000000 
MMOKALESWNGTOOM OOOO ODDDDD0DD000000 
Fe oF oe ot ot ot ot ot ot ot ot ot ot ot de ae ae ek ee ne ee ee ee ee eee eee ee ee ee 
OW00000000 0000900090090 NNNNNNNNNN > 
ODONAUS 
— 
o 
A 
7.) 
c 


O7FC ENTRY EXESDGBLSC,*M<R2,R3,R4,R5,R6,R7,RB,RI,R10> 
58 D4 CLRL R INDICATE NORMAL SDGBLSC REQUEST 
IFNPRIV PRMGBL,PRIV_ERR ;BR_IF NO PRIVILEGE TO 
98 ;CREATE/DELETE PERMANENT GLOBAL SECTIONS 
SE 1C 0 BL S*#-MMGSC_LENGTH, SP RESERVE SCRATCH AREA 
OA 00 AVIPL sSAVE CALLER'S IPL ON STACK 
50 O46 AC OD OA4 01 OVL FLAGS (AP) ,RO SECTION FLAGS 
OA 58 OC 0A8 8 BLBS 7BR IF IMAGE ACT. REQ., NO Paty — 
06 50 OF €1 QOAB 0 BBC #SECSV ~§tS6BL RO,15$ ;BR IS NOT TRYING TO DELETE S$ L GS 
OAF 04 IFNPRIV SYSGBL{PRIV_ERR :BR_IF NO PRIV TO DELETE SYSCBL SSECTION 
FF48 30 0085 05 15$: BSBW AMGSVF YSECICG VERIFY SECTION FLAGS 
56 6 -5G)=—s (0s: 0088 $ MOVL R VERIFIED SECTION FLAGS TO R6 
50 QOQO000000'EF ODE MOVAL CMEXESGL GSDMTX,RO MUTEX FOR GLOBAL SECTIONS 
OOOOOO00'EF 16 BC a8 JSB SCHSLOC ckQ CLAIM THE MUTEX FOR WRITING 
aoe 19 3 : RETURNS AT IPL = ASTDEL I 
25 st ce C i SUBL #<11#4>48,SP RESERVE SCRATCH FOR GSD NAME AND IDENT J 
5 —E 0D ee \7 MOVL SP,R7 sADDRESS OF SCRATCH AREA i 
cE 15 ASSUME IDENT EQ GSDNAM+4 mi 
50 8 ac 7D C Ht MOVQ GSDNAM(AP) ,RO ;GET NAME AND joent ADDRESSES mi 
59 56 g D 1 MOVL REMEMBER FLAGS FOR MMGSF INDGSNOTRN mi 
gore D 18 BSBW nds qoetn FIND THE GLOBAL SECTION IF IT EXISTS Mi 
5 . d8 1 BLBS rt :BR_IF GSD_FOUND Mi 
FF22" DB 0 BSBW ra iTeg3s8.3P CHECK IF THIS CRF see] U00 NOT IN SH MEM a 
5E 4 ¢ DE 1 208 ADDL RETURN SCRATCH STORA Mi 
03 9 § E1 § BLBS BRANCH IF FOUND SECTION ‘al 
00 eS Z BRW ; ‘ ;BRANCH IF SECTION DOESN'T EXIST a 
bee 5 ; R4 = SHARED MEMORY CONTROL BLOCK ADDRESS IF GLOBAL SECTION IS IN SH MEM ‘ad 
E7 6 ; RS = SYSTEM PROCESS HEADER ADDRESS Mi 
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- A TION SYSTEM SERVICE 16-SEP-1984 54 YAX/ VMS Macro v04-00 Page 11 
teeta poet se SELETE SF SAL SECTION itt SE g- yiety 88: 99: :42 YeYS. SRCJSYSDGBLSC.MAR; 1 (6) 
7 427 ; R6_= GLOBAL SECTION DESCRIPTOR BLOCK ADDRESS 
£ GBR RT 1S OP TW es Gag FOUND TN LOCAL RERORY a ewaey TABLES 
Ef 4 9 : >1 IF A SPECIFIC SHARED MEMORY NAME WAS SPECIFIED 
TX(R6),R1 :SECTION INDEX 
vig ha 08 #8 44 d § 258 grate g5pse — “BR IF GS NOT MAPPED TO A FILE 
53 55. 20 a5 Ci OOED 434 ADDL3 PHOS PSTBASOFF (RS), »RS,R3 :SECTION TABLE BASE ADDRESS 
53 6341~—sODEE ore 435 MOVAL (R3)CR1),R “SECTION ADDRESS 
OA A691 F6 436 308: CMPB GSDSB_TYPE(RO) ADYNSC _ext@sp ; -I$ THIS A NORMAL GSD? 
44 1A Fe 4 $ BGTRU SHHEM DEL :NO, BR AS IT IS A SHM 
72 #13 OOFC 4 EQL 1 WK P_TO_FILE [NO, BR AS IT IS AN EXTENDED GSD 
ee 8B OO art i33 TES GuE tne fe XESGL_GSDDELFL :REROVE G30 FROM tHe bErETE PENDING LIST 
a ro ? of 198 441 BBCC #secéV_P PERM, GSDS$W_FLAGS(R6),40$ ;CLEAR PERM, ALLOW DELETION 
51 D5 010D 442 40$:  TSTL :1S° THERE A SECTION TABLE ENTRY? 
OF 3 th rh BEQL Bs BR IF NO, NOT MAPPED TO A FILE 
0014 a3 OF £5 0111 444 BBCC #SECS$V_PERM SECSW_ FLAGS(R3),45$ :CLEAR PERM, ALLOW DELETION 
18 AS b5 He 445 45$: TSTL CSL_REFCNT :1F NO MORE REFERENCES 
Bogs a8 103 ones 30s D$v DALCSTX, PHDSW_FLA AGS URS) SBS TO BE DEALLOCATES 
#PH ’ 
oy Tasenoes 4 5B 0120 cts 50$: att #SS$_NORM sRECORD SUCCESS 
01 450 : O(SP) = SYSTEM STATUS CODE 
ot ‘32 : 4(SP) = SAVED CALLER’ IPL 
: YPE(R6),A#DYNSC_SHMGSD ;1S THERE A SHMGSD TO UNLOCK? 
Bas 09 % 6} 6 t3z 558 SNEG tt hee ee :BR IF OTHER TYPE OF GSD 
50 01 9A 0128 455 MOVZBL #1,RO :SET REFERENCE COUNT 
00000000 ' GF 61 B 45 G“MMGSDECSHMREF :RELEASE GSD SO CAN DISAPPEAR 
FECC' § 0131 re 60$ BSBW = MMGSDALCSTXSCN 'SCAN FOR SECTIONS TO DEALLOCATE 
FF3D «630 «(01340 458 BSBW MMGSGSDMTXULK ‘UNLOCK THE GLOBAL SECTION MUTEX 
0186 30 81 7 459 BSBW #$MMGSDELGBLWCB :DELETE "S$ ON WCBDEL QUEUE 
01 BA 013A 460 POPR < 5 i RESTORE SYSTEM STATUS CODE 
a C 461 ENBINT “RESTORE CALLER'S IPL 
04 O13F 46¢ RET SAND RETURN FROM SYSTEM SERVICE 
120 464 
5 : SECTION BEING DELETED IS IN SHARED MEMORY. SEE IF PROCESS REQUESTING 
140 ébe : SELETION is ON SAME PROCESSOR AS PROCESS THAT CREATED THE SECTION. 
10 58 «EB 14 rt: SHMEM_DEL: BR IF udnase ACT. REQ., NO PRIV CHK 
59 00000000'°9F 00 0143 4 MOVL aeeees RI DOF cu CURRENT PROCESS 
tet 1B 8 146A £39 BBS ari bane PHDSO _PRIVMER (RO) 465 IF HAVE PRIV FOR REQ 
o 24 ic 16k 476 MOVZML # $8. NOPRIV,-(SP) : REPOR tn ae peauest™ EST 
C 
: T(R6) SRON-EXISTENT CREAT 
= 0 3 1 $38 - Bise 3 ps8 seas RANCH Irn NON-EX SE STENT TO ALLOW DELETION 
5206 1506 91 O01 § 476 CPB SH $B_PORT(R4) ,GSD$B_ CREATPORT(R ) IS THIS PROC THE CREATOR? 
AA 66 6 1 4 <r 67S: BBss1 #GSD$V_DELPEND, GSDSL _6SdFL (RG § Os MARK THE GSD FOR DELETION 
A 1 
: TCREATOR,=(SP) CREPORT UNABLE TO DELETE SHM GLOB SEC 
Jt Taco HA if 165 if = Bee $335_NO ~ *BR TO REPORT ERROR CODE 
16¢ é : ; ERROR FROM THE GLOBAL SECTION DESCRIPTOR LIST SCAN 
| 
j 
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tbe tty DGBLSe - DELETE GLOBAL SECTION ore YER SE eye §¢:99:35 Heys SRCISYSD YSDGBLSC.MAR; 1 . (6) 
16C 484; 
50 op 01 4 ¢ BOS: — PUSHL RO SAVE ERROR STATUS 
?. Hh 4 § BRB 60$ tEXIT THROUGH tHe UNLOCK CODE 
170 4 § : THIS IS AN EXTENDED GSD. IT DOES NOT HAVE A CORRESPONDING SECTION TABLE 
170 489 ; ENTRY, I.£., A PEN-MAPPED SECTION. THERE IS NO REFEREN ce COUNT KEPT FOR 
170 490 : A PEN-MAPPED SECTION, REQUIRING A DELAYED DELETION MECHAN 
170 491 : SINCE wos MUTEX s, ING HELD FOR WRITE DURING THE sDGBL C REQUEST, 
17 43¢ 3 THERE IS NO RISK THAT ANY OTHER PROCESS IS ACCESSING THE GSD. 
7 493 : THEREFORE’ IT CAN BE DEALLOCATED TO PAGED POOL IMMEDIATELY 
170 495 NOT_MAP_TO FILE: P 
1058 +€ 17 438 BLES a i yiMase ACT. REQ. NO PRIV CHK Ss 
59 00000000'°9F DO 0173 49 MOVL areTe Sct. p DOF CURRENT P S P 
05 69 «1A 17A 498 BBS FNMas Buoso paves 85$ IF HAVE PRIV FOR REQ C 
. Bis 7 49 MOVZWL tie NOPR RO sREPORT NO PRIVILEGE E FOR REQUEST a 
9 11 01 0 BRB 8 ‘BR ON Noe PRIV TO DO REQU 
50 OF 0183 1 85$ REMQUE ;REMOV ve EXTENDED GSD FROM ACTIVE LIST T 
00000000" EF 16 0186 g JS8 (ee eee apacen SDEALLOCATE EXTGSD TO PAGED P i 
1 DD 018C 0 PUSHL #SS$_NORMAL sRECORD SUCCESS T 
Al 11 ! f f RB ; AND JOIN COMMON CODE 3 
8130 6 .DSABL LSB 
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v0e-0 IPTOR SCA Be 89:99:23 PANCMaS Becre yOe-00 Page 3) 


NN 53-SEP-19 SYS.SRCIJSYSDGBLSC.MAR;1 
-SBTTL GSDSCN = GLOBAL SECTION DESCRIPTOR SCANNER 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SCANS TH 
A SECTION WITH THE SPECIFIE 


CALLING SEQUENCE: 
BSBW MMGSGSDSCN 
INPUT PARAMETERS: 


.Z tS SECTION DESCRIPTOR QUEUE FOR 


RO = DESCRIPTOR ADDRESS OF GLOBAL SECTION NAME 
Ri = ADDRESS OF QUAD WORD OF SECTION IDENT INFORMATION 
R6 = SECTION FLAGS 
IF SYSGBL IS SET SEARCH SYSTEM GLOBAL LIST 
OTHERWISE SEARCH GROUP GLOBAL 
R7 = ADDRESS OF SCRATCH AREA TO STORE THE GLOBAL SECTION NAME IN 
COUNTED STRING FORMAT. ALSO INCLUDES SCRATCH SPACE FOR 
GLOBAL SECTION IDENT. 
GSD MUTEX IS LOCKED (FOR READ OR WRITE AS APPROPRIATE) BEFORE CALLING 


IPL = ASTDEL 
IMPLICIT INPUTS: 
NONE 


3 

; OUTPUT PARAMETERS: 

3 RO = SYSTEM "oy tee CODE 

3 R4 = ADDRESS OF SHARED ee ase tN BLOCK, IF GSD IS IN SHARED MEMORY 
4 RS = SYSTEM PROCESS HEADER 

& R6 = po L_ SECTION N DESCRIPTOR. BLOCK ADDRESS IF FOUND 

4 R10 = 0 IF GSD IS IN LOCAL MEM 

4 -1 IF LOCAL MEMORY oo EXTENDED INTO SHARED MEMORY TABLES, 
r > 0 IF IN SHARED MEMORY 

ri IMPLICIT OUTPUTS: 

2 GLOBAL SECTION NAME (ASCIC) IS RETURNED IN THE SCRATCH AREA. 

5 COMPLETION CODES: 

3 SS$_ fo rete arte ot COMPLETION 

5 SSS~IVL : INV ALID NAME 

5 SS$_ IVSECIDCTL ¢ INVALID SECTION IDENT MATCH CONTROL 
5 SSS$_NOSUCHSEC ;NO SUCH (GLOBAL) SECTION 

5 SS$-ACCVIO ACCESS VIOLATION 

SIDE EFFECTS: 

6 NONE 

6 


wWwWOWOOOOVOOOOOOOWOOOOOOOOONO WDOODOODOODODOOVOOOOOOOOOOOOOOOO0OO0O0NO 
SOOooosooooooooooooooooooooooooooooooooooooooooooooooooo 
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SYSDGBLSC - DELETE GLOBAL SECTION SYSTEM SERVICE SEP=1984 02:00:54 YAX/VMS Macro V04-00 Page 14 
ae ty GSDSCN = GLOBAL SECTION DESCRIPTOR SCANN "er Hie §¢:99:25 SYS.SRCJSYSDGBLSC.MAR; 1 v 
1 4; 
13 és 3 PARARARASAAALAALALALALALALLELALLASE SASL SESE S ALES SASE EEE E SECC LEE EEE aE. 
13 $ : eeeeeeeeeeeeeere THE FOLLOWING CODE MAY BE PAGED teeeeeerereaeeere 
0000 19 $3 .PSECT YSEXEPAGED 
13 7 : PARRAAALALLALALALAELALLALCALALCLALLALCLALAL ESL E SESE ACES ECE E LECCE Cees 
19 ig 
19 74 -ENABL LSB 
19 75 
1 id: BADNAME : 
50 0154 BF 3¢ 190 7 MOVZWL #SS$_IVLOGNAM,RO :SET ERROR STATUS 
OA 11 019 78 ERRERIT F 
197 579 BADIDENT: 
50 0264 BF 3¢C 0197 0 MOVZWL #SS$_IVSECIDCTL,RO yINVALID SECTION ID MATCH CONTROL 
03 11 019¢ 3 1 ERRERIT 
019 ; ACCVIO: 
50 OC 9A O19E 58 MOVZBL #SS$_ACCVIO,RO sREPORT ACCESS VIOLATION 
01A1 584 ERREXIT: 
SA D4 O1A1 585 CLRL = R10 yINDICATE LOCAL MEMORY ON ERROR 
0100 31 O1A3 586 BRW 35$ 
01A6 387 
01A6 88 MMGSGSDSCN:: 
0B00 8F BB D146 589 PUSHR #*M<R8,R9,R11> ;REMEMBER REGISTERS 
52 7C O1AA 590 CLRQ = R2 SASSUME NULL IDENT IFORMATION 
51 pS O1AC 591 TSTL = R1 :0 ADDRESS MEANS NO IDENT TO MATCH 
0& 13 O1AE £9¢ 5$ BRA HIE NO IDENT 
0180 4659 IFNORD #8,(R1),ACCVIO BRANCH IF CALLER CANNOT READ THE QUAD WORD 
52 61 7D 0186 594 'GET THE IDENT INFORMATION 
02 52 »1 0189 395 CMPL = R2, #SECSK _MATLEQ [MATCH CONTROL OK? 
D9 14 01BC 596 BGTR BA BIDENT ‘BRANCH IF BAD 
2c A? —-52.)—=Ci7Dsé*O 1B 397 5$ ova Re» 44 SSTORE IDENT INFO IN SCRATCH AREA 
01C 98 IFNORD # (RO) reevio :CHECK ACCESSABILITY OF DESCRIPTOR 
59 60 3¢ 01¢8 599 MOVZWL (RO), [GET SIZE OF STRING 
C3 13 O1CB 600 EQL  BADNA Ane 'BR IF NO STRING SPECIFIED 
D0 O1CD 601 MOVL  4(RO),R10 :GET ADR OF INPUT GS STRING 
1D1 60¢ ASSUME LMSC *NAMLENGTH LE 512 
B1 iD) 60 CMPW NMSC_NAMLENGTH,R9 :1S NAME LONGER THAN MAXIMUM ALLOWED? 
1F 0106 604 BLSSU BA ON NA ‘BR IF ILLEGAL NAME SIZE 
1D8 605 IFNORD R9,(R10),ACCVIO [CHK IF STRING ACCESSABLE 
7D OWE 6 g mova —s RY. = (SP ) sMOVE INPUT GS DESC TO STACK 
p0 161 ‘ MOVL i :GET ADD 
E O1E4 8 MOVAB a) 5 (SP) SET ADR Ror GS BUFFER IN STR DESC 
DD O168 609 PUSHL Vsd> >=] SSET SIZE OF GS BUFFER IN STR DESC 
D0 1EA 610 MOVL Sp :SET ADR OF GS DESC 
¢ 1ED 611 SUBL sin =. SP [GRAB SHARED MEMORY NAME BUFFER. 
E O1FO 61g MOVAB rf P) ,-(SP) [SET ADR OF SH MEM BUFFER IN STR DESC 
DD O1F4 61 PUSHL “1 [SET SIZE OF SH MEM BUFFER IN STR DESC 
p 166 14 MOVL :SET ADR Ao SH MEM DESC 
179 «615 BSBW SRGRGe TGSNAN :GET GS AND SH MEM NAMES 
E8 OFC 616 BLBS = RO :BR ON NAMES CORRECT 
4 OFF 61 CLRL = (R10) ;INDICATE LOCAL MEMORY 
1 1 18 BRW ERROR EXIT 
p? 4 619 7$ DECL (R103 :ApR OF ASCIC SH MEM NAME 
7 620 MOVE  (R10),@4(R10) MAKE SH MEM NAME INTO ASCIC STRING 


eh Ad 
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SYSDGBLSC DELETE GLOBAL SECTION SYSTEM SERVICE 16-SEP-1984 54 VAX/VMS M v04-00 P 
v04= GSDSCN = GLOBAL SECTION DESCRIPTOR SCANN 5-SEP=1984 03:52:42 CSYS.SRCJSYSDGBLSC.MAR;1 
67 68 9 B 6 1 MOVB = (R11), (R7) :MAKE GS NAME INTO ASCIC STRING 
1 2 BNEQ b SIF NEQ THEN GS NAME SPECIFIED 
009F 3 6 BRW NO_GS_NAME TERROR, NO GS NAME SPECIFIED 
58 00 d2 021 4 8$: MCOML #0-R [NEGATIVE ONE FOR SYSTEM GLOBAL 
56 560 «001)SCOOFSsC#E «C0016 605 EXTZV #SECSV_SYSGBL #1 .RO,RG SSYSTEM GLOBAL BIT 
C ie 18 6 g BNEQ 1 ‘BRANCH IF SYSTEM GLOBAL 
1p 6 : : GROUP GLOBAL SECTION SCAN = GET GROUP CODE FROM PCB 
58 _00000000'EF 00 1D 630 MOVL  L“SCH$GL_CURPCB,R8 ;PROCESS CONTROL BLOCK ADDRESS 
58 OO0BE C8 3¢ 4 6 1 MOVZWL PCB$W_GRP(R8) RB :GROUP CODE TO MATCH 
3 6 : COMPUTE A SIMPLE HASH CODE FOR THE GSD NAME 
59 D4 9 635 ios: CLRL = R9 :HASH ACCUMULATOR 
50 57 00 B 6 6 MOVL _—R7,RO ‘STRING POINTER FOR HASH CALCULATION 
51 BO 9A E 6 MOVZBL (RO)+,R1 ‘LENGTH 
59 80 8 1 638 15$:  ADDB  (RO)+.R9 [D0 A SIMPLE FUNCTION 
FA 51 OF 4 639 SOBGTR R1,15$ 
FDC6" 30 0237 641 BSBW § MMGSFIND1STGSD :POSITION POINTERS FOR GSD SEQ SEARCH 
63 50 €9 3A 64g BLBC RO ERROR_EXIT 'BR ON ERROR FINDING SPECIFIC SH MEM 
06 11 D 64 BRB 25§ :GO CHECK FIRST GSD 
00000000'GF 1 3F 644 208: JSB G*MMGS$GE TNXTGSD [GET NEXT LOGICAL GSD ENTRY ADR 
36 DS 0245 645 25$:  TSTL R6 ‘WAS THERE ANOTHER GSD? 
.. 3 47 G46 BEQL § GS$_NOT_FOUND *BR ON NO MOR ' 
29 OA AB 91 «0249 = 64 CMPB © GSDSB_TYPE(R6),#DYNSC_SHMGSD :1S THIS A SHARED MEM GSD? 
08 iF 4D 648 BNEQ 27% ; F NOT SH 
EC 66 «6001—Cé 4F 649 BBS #GSD$V_LOCKED ,GSDSL_GSDFL(R6),20$ ;BR IF GS IS LOCKED FOR READ 
£866 O02 €E 33 650 BBS #GSDSV-DELPEND,GSDSC_GSDFL(R65,20$ ;BR IF GS IS MARKED FOR DELETE 
0658 #4 CE 57 651 278: BBS aR sBRANCH IF NOT COMPARING GROUP CO 
OE A6 «658)~—COBTSsC(258 63¢ CMPW ss RB, GSD$W_PCBGRP(R6) [DOES THIS SECTION BELONG TO THIS GROUP? 
DE 12 O25F 65 BNEQ 208 ‘BRANCH IF NOT, TRY NEXT GSD 
50 32 A6 SE 0261 654 30$:  MOVAB GSD$T_GSDNAM(R6) ,RO “ASSUME LOCAL OR SHARED MEMORY GSD 
28 OA A6 91 0265 655 CMPB GSDSB_TYPE(R6) ,#DYNSC_EXTGSD -PFN-MAPPED GSD? 
04 12 0269 636 BNEQ 1$ :1F NEQ NO, ASSUMPTION WAS CORRECT 
50 30 A6 9E 0268 65 MOVAB GSDST_PFNGSDNAM(R6),RO :POINT TO PFN-MAPPED SECTION NAME 
0B A6 H 3} of $38 31$: cree BP 65088 HASH (RO) DOES THE HASH MATCH 
52 67 9B 0275 660 MOVZBW (R7),R2 [GET LENGTH OF NAME TO MATCH 
80 91 78 661 CMPB ss R}2,, (RO) + [DOES LENGTH MATCH AT LEAST? 
c Ig 78 66¢ BNEQ 2 [IF NEQ NO, TRY NEXT GSD 
60 O1A7 §2 2 7D «66 CMPC3 Re 1(R7), (RO) [DOES ACTUAL NAME STRING MATCH? 
BB ol2 : 664 BNEQ 208 :BRANCH IF NO, TRY NEXT GSD 
4 666 ASSUME SECSK_MATALL EQ 0 
4 66 ASSUME SECSK“MATEQU EQ 1 
4 668 ASSUME SECSK“MATLEQ EQ 2 
50 2C a? 0D 4 rif MOVL  44(R7),RO sFETCH IDENT MATCH CONTROL 
13 1 8 671 BEQL “BRANCH IF ALWAYS MATC 
1B A633 A 4 A 676 CHPB $44+7>(R7) ,GSDSL_IDENT#3(R6) DOES MAJOR 1D MATCH 
18 A630 ‘5 if 1 674 CMPL <4444>(R7) . GSDSL_IDENT(R6) “NOW COMPARE ENTIRE LONG WORD 
8) £9 0598 br Beate ab 338 $1P LARGER TEN WD TCR ecouines 
= A 3 98 ers BNEQ BO ‘BRANCH IF NOT AN EXACT MATCH 
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GSDSCN = GLOBAL SECTION DESCRIPTOR SCANN 5=SEP=1 YeYS. SRCJSYSDGBLSC.MAR; 1 (8) 
50 01 3C 0290 67 33$:  MOVZWL #SS$_NORMAL,RO ; INDICATE GSD FOUND 
A 79 ERROR_EXIT: 
A 6A 00 A 6 MOVL = (R10),.R10 :SET INDICATOR IF GS IS IN SHMEM 
ei ba: A 343: ADDL asi i> p [CLEAN OFF GS DESC,SHM DESC AND BUFFER 
800 F BA O02A6 6 é 5$: POPR “M<RB,RO,R11> tRESTO RE REGISTERS 
55  00000000'FF DE AA 6 MOVAL SL ARCSGL SYSPHD,RS :SYSTEM PROCESS HEADER ADDRESS 
B1 684 R SAND RETU 
B2 685 NO_GS_NAME: 
50 0154 8F 3C O2B2 6 : MOVZWL #SS$_IVLOGNAM,RO yINDICATE NO GS NAME SPECIFIED 
E7 11 OB? 6 BR ERROR_EXIT SRETURN 
B9 688 GS_NOT_FOUND: 
50 0978 8F 3C 0289 689 MOVZWL #SS$_NOSUCHSEC,RO ;INDICATE GSD NOT FOUND 
£0 11 BE 690 BRB ERROR_EXIT SRETURN 
C9 6692 .DSABL LSB 
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m .SBTTL DELGBLSEC - DELETE GLOBAL SECTION SUBROUTINE 
; FUNCTIONAL DESCRIPTION: 


sam 


crt 
m 
om 
or 
cm 
n- 
mm 


CALLING SEQUENCE: 

BSBW MMGSDELGBLSEC 
INPUT PARAMETERS: 

R = GLOBA 


= GLOB 


AB 
A AB 
R5 = SYSTE 
D 
C 


L SECTION TABLE INDEX 
H PROCESS HEADER ADDRESS 
GLOBAL sect 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


NONE 


ON MUTEX LOCKED FOR WRITING 


2 I | MQOOCDTOOOOCOOOOOOOO m>p 


REAR ER AAA RE RARER AAA AAA AAA AAAAAAAAAEAAAAAAE EES 
keeeeerereeeeenre THE FOLLOWING CODE MUST BE RESIDENT seexeeeneeeeeeeee 
~PSECT SMMGCOD 


PARRA AAAAAAAALALALAAA SAREE ELAS RSE ARRAS AREAS ESR R EERE RRR R ARRAS SARS SSS 


CSGOOCOOOOSOOOSOSOSOOOSOSOOSOOOOOOOOOOOOO OOO OOOO OOOOOO 


0000 


DOOM OOOOOOOOAIOAOOMAOAIOAAOAOAOOAOAAAAAQAOAOOOOOOOOOOOOOOO 


ADBNE FS LOQOOCOOCOOCOC COCO OOOOOOSOOSOCOCOOOOOOCOOO OOOO OOOOOOOOOOOOOOO lM 


DELGBLSEC BUG: 
BOG_CHECK DELGBLSEC FATAL BAD MASTER PTE FORMAT FOR THIS CONTEXT 


MMGSDELGBLSEC:: 
MOVL 


108 
BEQL 

REMQUE (RQ) 
INSQUE (R2) 


52 s 


52 
QOO00000°EF 6 


~GSD(R3) ,R2 :GET ADR OF GLOBAL SECT! 


G 
oR2 TREMOVE GSD F 
LEXESGL_GSDDELFL ;PUT GSD ON DELPEND Uist 


ESCRIPTOR 
(NO GSD) 


SONA NEW 9 9 ODNAMN EWN SO OD NAME WIN SO OONAUES WN OOODNAUE WN "OOONOUS or 


SsoooooooolS 
SoOoOooooooo 


ooo 
MmnRWo 


OHIBIT USE 


<o“ 
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riba tty DEL EBT SEC - BELETE GLOBAL SECTION SUBROU 5-SEP-1984 §¢:99:35 SYS.SRCJSYSDGBLSC.MAR; 1 . 8) 
50 1C Ad. D 13 751 108:  MOVL $L_PAGCNT(R3) ,RO yNUMBER OF PAGES IN SECTION 
ot } BNEG :CHECK FOR INCOMPLETE SECTION 
BB O01C 411%:  PUSHR #*M<RO,R1,R3> ;PUSH SECTION ADR, INDEX, PAGE COUNT 
16 EF IF 755 EXTZV #SECSV’ VPX #SECSS PX,- :FIRST GLOBAL PAGE TABLE INDEX 
53 08 A f : SECSL_QPXPFC(RS) ,R : 
53 ~0000'DF43_~—soeé 4 MOVAL ay MNGSGL GPTBASELR3],R3 s;ADDRESS OF FIRST GPTE 
09 8B A 138 PUSHR #*M<RO,RSS :PUSH 1ST GPTE ADR, GPTE COUNT 
° ¢ 766 : OCSP) = COUNT OF GPTE'S 
C 761: 4(SP) = FIRST GPTE ADDRESS 
0 ¢ £6 ; (SP) = COUNT OF GPTE' 
C 763 : 12(SP) = GLOBAL SECTION INDEX 
3 : pee : 16(SP) = GLOBAL SECTION ADDRESS 
6 C 166 SETIPL #IPL$_SYNCH ;RAISE TO SYNCH FOR THIS SCAN 
09 F 768 ; THE FOLLOWING SCAN OF THE GLOBAL PAGE TABLE ENTRIES IS DONE TO ELIMINATE 
OOF 169 + ALL TRANSITION PAGES POINTING AT THE GPTE'S. 
99 F £70 : THE SCAN IS SKIPPED FOR RESIDENT GLOBAL SECTIONS 
50 10 AE DO O02F 00 MOVL  16(SP),RO :GET SECTION TABLE ENTRY 
2014 a0 0D €0 0033 77 BBS #SECSV_RESIDENT, SECSW_FLAGS (RO) ,50$ 
50 83 78800000 8F (CB 0038 774 20$ BICL3 #*C<PTESM VALID! - -GET THE VALID BIT 
040 775 PTESM_TYPT ! PTESM_TYPO |! - ;PTE TYPE BITS 
040 17 PTESM-GPTX>,(R3)+,RO | AND PFN/GPTX BITS FROM THE PTE 
1D 13 0040 77 BEQL $ :DZRO 
Bc «(19 O42 778 BLSS DELGBLSEC BG [BRANCH IF INCONSISTENT 
51 50 EA 8F 78 0044 779 ASHL #-PTESV_TYPO,RO,R1 SONLY TYPE BITS LEFT, RIGHT ADJUSTED 
14 12 0049 780 BNEQ 40$ ‘BRANCH IF NOT A TRANSITION PAGE 
0048 781 ASSUME PFNSC_FREPAGLST EQ 0 
03 00 EF 0048 7 : EXTZV #PFNSO_LOC,#PFNSS _LOC,- ;GET THE PAGE'S LOCATION 
52 0000'DF40 04 7 aW“PFNSAB_STATELROJ,RO : 
03 13 0053 784 BEQL 308 SIF NOT ON FREE LIST, WAIT UNTIL IT IS 
009E 31 0055 785 BRW 100$ 
5 bp 058 786 30$:  PUSHL R3 :SAVE REGISTERS AROUND THE FOLLOWING 
FFA3" 30 005A 187 BSBW WMGSDELPFNLST [DELETE PAGE FROM PFN LIST 
08 BA 96D 7 : POPR #*M<R3> SRESTORE REGISTERS 
D6 6E FS OOSF 789 40$:  SOBGTR (SP),20$ [ONCE FOR EACH GLOBAL PAGE TABLE ENTRY 
8E DS 0062 790 50$: TSTL (SP)¢ [CLEAN OFF EXHAUSTED COUNT 
53 6€ 00 0064 791 MOVL  (SP),R3 [1ST GPTE ADDRESS 
50 04 AE 00 067 138 MOVL 4 (SP5,RO [COUNT OF GPTE'S 
068 194 3 THE SECOND SCAN OF THE GLOBAL PAGE TABLE ENTRIES IS DONE TO DECREMENT 
68 795 : THE GLOBAL PAGE TABLE REFERENCE COUNT AND TO RELEASE PAGING FILE 
068 796 ; BACKING STORE. THIS WAS NOT DONE IN THE PREVIOUS SCAN BECAUSE THAT 
68 797 : SCAN REQUIRED THAT THERE BE NO SIDE EFFECTS SO THAT IT COULD FAIL 
68 9 : AND BE RESTARTED. 
63 05 $8 9 é0s: Ist (R3) :IF VALID, ASSUME RESIDENT GLOBAL SECTION 
2E 63 «6©16~—COEO Oct : BS #PTESV_TYPO,(R3),72$ | ;BRANCH IF NOT PAGING FILE BACKING STORE 
9 6B PUSHR #*M<ROTR3> *SAVE REGISTER AROUND THE FOLLOWING 
50 63 16 9 FF 3 4 EXTZV #DTESV_POFLVB.APTESS_PGFLVB (R3).R 3GET PAGE VBN TO DEALLOCATE 
53 1f AS 9A 007 MOVZBL PHD$B_PAGFIL(RS),R3 SINDEX OF SYSTEM PAGING FILE 
FF7D" 3 86 § BSBW MMGSDALCPAGFIL [DEALLOCATE PAGING FILE 
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SupRou 'S-SEp-19B6 BSisosas Fete ves Macee VOGT Oe ast e 
(Jeers sRESTORE REGISTERS 
R 
#PTESV_PEN #PTESs PEN, (R3). «fo GET, THE PFN 
@PFNSAQ_REFCNTCROJ S$ RE FERENCE 
#PENSM DELCON, aW°PFNSAB_ STATE RO gDON’ T NEED IT ANY MORE 
MMGSRECPFN E THE PAG 
(SP)+,RO 
MMGSDECPTREF ONE LESS PAGE TABLE REFERENCE 
(R3)+ {DEL eT — THE GPTE 
RO, 60$ [NEXT GPTE 

ADDRESS 
GPTE'S 
CTION INDEX 

ECTION ADDRESS 
#IPL$_ASTDEL sBACK TO CALLED IPL 
#4, (SP)+,RO ADDRESS OF FRONT STOPPER FOR THIS SECTION 
#3, (SP)+,R1 {GPTE COUNT + 2 FOR ST OPPERS + 1 TO ROUND EV 
#1,R1 SROUND TO EVEN NO. OF GPTE'S 
#4-R1 [NO. OF BYTES OF GPTE TO RELEASE 
W°EXESGL_GPT,R3 :T0 GPT F REE POOL 
EXESDEAL OcATE ;RELEA SE THEM 
#°M<RI,R "RI=SECTION INDEX, R3= SECTION ADDRESS 
SECSL_ GiNDOw(R3), RO GET its ADDRESS Xeon SECTION 
120 INDOW, SKIP ALL THIS STU 
#WCBSV_SHRWCB,WCB$B _Acce§S{a0) 808 *BRANCH IF NOT SHARED” UINDOw 
WCBSW_REFCNT(RO) T REFERENCE ON SHARED WINDOW? 
90$ <ERANCH if NOT 
WCBSW_NMAP(RO) tNO RETRIEVAL POINTERS 
WCBSW_P1_COUNT®3 EQ 0 _;STARTS AT LONG WORD OFFSET 
WCBS$W~P1—COUNT(RO) ,W°EXESGL_WCBDELFL ;QUEUE WINDOW ON WCB DELETE LIS 
SEC$L_GSD EQ 0 71ST LONG WORD IN SECTION IS GSD ADDRESS 
(R3) RO [GET GSD ADDRESS 
95$ 3BRANCH IF NONE 
(RO) ,RO REMOVE GLOBAL SECTION DESCRIPTOR 

[FROM GSD act IVE LIST 
R1 [SAVE R1 ACROSS CALL 
G*EXESDEAPAGED DEALLOCATE GSD TO PAGED POOL 
(SP)+,R RESTORE 
MMGSDALCSTX SDEALLOCATE THE GLOBAL SECTION INDEX 
SAND RETURN 


N TRANSITION STATE. IT IS GUARANTEED TO END UP ON THE FREE PAGE 
WHATEVER IS GOING ON IS COMPLETED 


W*SCHSGL -MEYLOLIN SFORCE THE MODIFIED PAGE WRITER TO 
W*SCHSGL-MFYLIM SSTART, TO GET PAGES ON FREE LIST 

#IPLS RE TDEL SBACK fo CALLER Rvs PL 

#PHD$y _DALCSTX,PHDSW_ FLAGSCRS) ios: T ECTION STILL TO BE DEALLOCATED 
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voa-000 MODELETE GLOBAL SECTION SUBROU 'S-SEP-1986 OS:S9i09 ES¥gusACHSYSpcuLscoman1 © 29° 28, 
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B 14 
STO RBL SC = DELETE GLOBAL SECTION SYSTEM SERVICE 16-SEP-1984 §¢: 99:34 AX/VMS Macro V04-00 Page ¢ 
v04-00 DELGBLWCB = DELETE GLOBAL WINDOW CONTROL 5=-SEP-1984 742 (CSYS.SRCISYSDGBLSC.MAR; 1 (10) 

113 $9 ans -SBTTL DELGBLWCB = DELETE GLOBAL WINDOW CONTROL BLOCKS 

114 r : FUNCTIONAL DESCRIPTION: 

114 5g : THIS ROUTINE REMOVES ANY WINDOW conn BLOCKS FROM THE WCBDEL 

We ue ; LIST AND DEACCESSES THE FILES BY FILLING IN A CHANNEL AND DEASSIGNING IT 
114 2 : CALLING SEQUENCE: 
114 28 ; BSBW  § MMGSDELGBLWCB 
O14 880 : INPUT PARAMETERS: 
0114 Ho : = PCB ADDRESS OF PROCESS 
Bite tH ; FPL = ASTDEL, MAY BE LOWERED TO 0 FOR A WHILE, BUT RETURNS AT ASTDEL 
0114 885 : IMPLICIT INPUTS: 
0114 H+) 5 
O11d BBB sie 
0114 889 : OUTPUT PARAMETERS: 
0114 890; 
os 
0114 398 : IMPLICIT OUTPUTS: 
HB gee : 
sie ig kon 
0114 897 : COMPLETION CODES: 
0114 898 ; 
0114 899; NONE 
0114 900 ; 
gt ga 
aie $08 : RRARRET ERATE AAA AAA AAA AAA ARERR 
Bite 44 : eeeeteneeereeere THE FOLLOWING CODE MAY BE PAGED seerexeeeeeeeeeeerene 

00000 C0 907 : .PSECT YSEXEPAGED 

02C0 909 : PARRA AAAA ARATE AAA AAA AAA AAA AAA AAA ARATE AAA AAA 
one 

C 912 MMGSDELGBLWCB:: 

00000000 'EF 8 6 : 318 azar $7, Set pT iexer oe ris th al rit MAPPED 
OE AS’ BS 3} 915 TSTW + aa lc DOES a PROCESS OWN ANY MUTEXES? 
0 12 cB 318 BNEQ 15$ [BR IF IT DOES ~ CALL ANY SYS SRV 
53 00000000'FF OF CD 366917 +108: REMQUE Oi EXESEL_WCODELFL AS GET NEXT WCB fo. CCESS 
01 4 D4 213 BVC ;BRANCH IF GOT 
0 D 919 15$: RSB :NO MORE ON THE oN ist 
53 3 f D 920 20S: SUBL tht a » ered Ra ;ADDRESS OF WI srt ‘euiee: BLOCK 
FD23° : DA 921 BSBW Mets sFIND A FREE CHAN 
3a 50 ED bP 2 § BLBC ;BRANCH IF NONE AVATLABLE 
ES 924 ; R1 = CHANNEL NUMBER 
E 925 ; R2 = CCB ADDRESS 
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SYSDGBLSC - DELETE GLOBAL SECTION SYSTEM SERVICE  16=!iEP-1984 02:00:54 VAX/VMS Macro v04-00 Page 
vore6B0 DELGBLWCB = BELETE GLOBAL WINDOW CON7’ROL aa ney 96:99:25 SYS.SRCJSYSDGBLSC.MAR; 1 . (98) 
E 926 ; 
OF 0B AB «03 «CEO «6(00E0 9 : BBS #WCBSV_SHRWCB,WCBSB ~ACCESS(R3) 25$ 
gO 8 audTA A CHECK IF SHARED WIND 
0080 6 «=D gS 9 MOVL  PCBSL_JIB(R4),RO ‘CET A ESS OF JOB INFOPMAT ION BLOCK 
0A0 8B EA 930 TSTW yipsu_ FILCNT(RO) i CAN vee CHARGE HIM FOR A FILE? 
2B. ED 931 BEQL :BRANCH IF NOT 
30 Ad B? OFF 9 : DECW Ji6su_ FILCNT(RO) SCHARGE FOR THIS FILE 
03 11 0 Fe 3 ; BRB SREJOIN COMMON CODE 
OE As BG 6 Fé ; 5 25$: INCW WCBSW_REFCNT(R3) ;COUNT A REFERENCE IF SHARED WINDOW 
50 10 A3 00 0 Ff? 9 2 30$: MOVL wcBsL -ORGUCB(R3), RO :UCB ADDRESS FROM WINDOW 
5C AO) «6B6 OCOeFB O98 INCW UCBSWTREFC(RO) [COUNT A REFERENCE AND 
6 29 DO O2FE 939 MOVL RO CBSE. UCB«R2) sPUT IT IN THE CHANNEL 
04 A253 00 0301 940 MOVL  R3,CCBSL~WIND(R2) [PUT WINDOW IN CHANNEL 
09 96 0305 941 N CCBS$B_AMOD(R2) i ASSIGN CHANNEL IN KERNEL MODE 
0 08 hg SETIPL # :DROP TO IPL 
308 94 SDASSGN_S R1 : DEASSIGN CHANNEL (THUS DEACCESSING FILE) 
0315 944 SETIPL “#IPL$_ASTDEL ‘BACK TO ASTDEL 
B31 0318 43 BRB 10$ :GO GET ANOTHER WCB IF ANY MORE 
OIA 47 : R3 = WCB ADDRESS, PUT IT BACK ON THE WCBDEL QUEUE 
00000000'EF 30 A3 OF O31A 949 
0 O32¢ 950 
0323 «951 
0323 93¢ 
0323 «(95 END 


dos: INSQUE WCB$W_P1_COUNT(R3),L*EXESGL_WCBDELFL ;RE-QUEUE THE WCB 
RSB ;ANB RETURN 


SYSDGBLSC 
Symbol table 
ACCVIO 
BADIDENT 
BACNAME 

att: DELGBLSEC 
CCBSL UCB. 
CCBSL_WIND 
CTL$GC_F11BxQP 
CTLSGL "PHD 
DELGBLSEC. BUG 


IR 
DYNSC_EXTGSD 
DYNSC” SHMGSD 
ER ne xT 
ERR XIT 
EXESDEALLOCATE 
EXESDEAPAGED 
EXESDGBL SC 
EXESGL_GPT 
EXESGL_GSDDELFL 
EXESGL_GSDMTX 


EXE ESCL~ WCBDELFL 
exe ESMARAC 


GSD$8_CREATPORT 
ASH 


D$W_GSTX 
Gspsu PCBGRP 
GS_NOT_FOUND 
IDEN 
1OCS$FF CHAN 


MMGSOGBL SC 
MMGSF INDISTGSD 
MMGSF INDGSNOTRN 
MMGSGE TGSNAM 
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SYSDGBLSC 
Symbol table 


SECSM_DZRO 
SECSM_EXECUTE 
SECSM_EXPREG 
SECSM 


E 
SECSM_PAGF IL 
SECSM_PERM 


$S$_IVLOG 
SS$_IVSEC 


ECFLG 
SS$_IVSECIDCTL 
S$_NOPRIV 


WCBSL_ORGUCB 
WCBSV~SHRWCB 
WCBSW~NMAP 
WCBSW"P1_COUNT 
WCBSW~REFCNT 


PSECT name 


$AB 
YSEXEPAGED 
SMMGCOD 


E 
~ DELETE GLOBAL SECTION SYSTEM SERVICE 


SOOoOQoQooooooooooooSooooooo 


SOoooSoSOS * OOOO SOOSOOOOoOoOoOSO 


! Psect synopsis : 


mene 
ad el 71) 
mmmnmn 


F 14 
- DELETE GLOBAL SECTION SYSTEM SERVICE i a tat 9 9g: 09:38 ve Macro V04-00 
“SEP=1984 05:52:42 (CSYS.SRCISYSDGBLSC.MAR;1 


seein 
VAX=-11 Macro Run Statistics 


! Performance indicators ! 


pom meen man w mow ema mare naan} 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 8: + on 8:8 : } 9 
Command processing 105 :00:00.5 7:00:04. 
Pass 459 8: 218.1 :00:56.1 
Symbol table sort :00:02.91 :00:06. 
Pass 2 17 8: : OF 8: 708. 
Symbol table output 20 :00:00.17 :00:00.24 
Psect synopsis output 1 8: :00.03 3:8 :00.03 
Cross-reference output 9 00:00. 0:00: 9-99 
Assembler run totals 79 0:00:25. 00:01:17.16 


The yorking set Limit was 1800 pages. 
102297 bytes (200 pages) of virtual memory were used to buffer the intermediate code. 
There were 100 pages of symbol table space allocated to hold 1815 non-local and 57 local symbols. 
953 source Lines were read in Pass 1, producing 21 object records in Pass 2. 
pages of virtual memory were used to define 35 macros. 


Macro Library name Macros defined 
“B52 gEDUACE: SVS 08 JLIB.MLB; 1 19 
$255S$DUA28: CSYSLIBISTARLET.MLB;2 13 
TOTALS (all Libraries) 32 


1986 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSDGBLSC/0BJ=OBJ$:SYSDGBLSC MSRC$:SYSDGBLSC/UPDATE=(ENH$:SYSDGBLSC) +EXECMLS$/LIB 
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